home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_91-09_1991_-_de_Side_B.d64 / -text worker - (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  138 lines
  1. 10 rem steuerprog
  2. 20 :
  3. 30 print"[147]"
  4. 40 sys 57812 "setup",8:poke 780,0
  5. 50 poke 781,0:poke 782,192:sys 65493
  6. 60 sys 57812 "datapart",8:poke 780,0
  7. 70 poke 781,0:poke 782,32:sys 65493
  8. 80 sys 57812 "main routs",8:poke 780,0
  9. 90 poke 781,68:poke 782,197:sys 65493
  10. 100 poke 10287,92:poke 808,225
  11. 110 poke 53280,0:poke53281,0
  12. 120 goto 460
  13. 130 :
  14. 140 rem put on screen
  15. 150 :
  16. 160 poke 53272,24:poke 198,0
  17. 170 print"[152][147]   [203]onzipiert fuer ";
  18. 180 print"kleinere [193]rbeiten,"
  19. 190 print"   die gut aussehen sollen :"
  20. 200 poke 55334,0:poke 56096,0
  21. 210 print"            [212][216]-[215][207][210][203][197][210]"
  22. 220 print spc(8) "(1) [212]ext loeschen"
  23. 230 print spc(8) "(2) [212]ext speichern"
  24. 240 print spc(8) "(3) [212]ext laden"
  25. 250 print spc(8) "(4) [212]ext drucken"
  26. 260 print spc(8) "(5) [212]ext bearbeiten"
  27. 270 print spc(8) "(6) [196]isk [201]nhalt"
  28. 280 print spc(8) "==================="
  29. 290 print"  [193]uswahl 1 - 6"
  30. 300 get a$:if a$="" then 300
  31. 310 if a$="1" then goto 410
  32. 320 if a$="2" then goto 570
  33. 330 if a$="3" then goto 680
  34. 340 if a$="4" then goto 800
  35. 350 if a$="5" then goto 990
  36. 360 if a$="6" then goto 500
  37. 370 f$="[198]alsche [212]aste ":gosub 1080
  38. 380 poke 51,0:poke 52,160
  39. 390 goto 300
  40. 400 :
  41. 410 rem clear the text
  42. 420 print" -=*>";:sys10240
  43. 430 print"[158][215]irklich loeschen?"
  44. 440 get a$:if a$="" then 440
  45. 450 if a$<>"j" then 480
  46. 460 sys 10278
  47. 470 poke 12288,9:poke 12289,48
  48. 480 goto 140
  49. 490 :
  50. 500 rem directory
  51. 510 print"[147][155]     [196]irectory"
  52. 520 sys 11008 "$:*",8
  53. 530 print"       [212]aste !":poke198,0
  54. 540 getb$:if b$="" then 540
  55. 550 goto 140
  56. 560 :
  57. 570 rem save the text
  58. 580 print" -=*>";:sys10240
  59. 590 gosub 1140 :rem filename
  60. 600 poke 193,0 :rem bei $3000
  61. 610 poke 194,48
  62. 620 poke 174,peek(12288)+10
  63. 630 poke 175,peek(12289)
  64. 640 sys 62954
  65. 650 gosub 1330
  66. 660 goto 140
  67. 670 :
  68. 680 rem load the text
  69. 690 print" -=*>";:sys10240
  70. 700 print"     [215]irklich laden ?"
  71. 710 get a$:if a$="" then 710
  72. 720 if a$<>"j" then 780
  73. 730 gosub 1140 :rem filename
  74. 740 poke 780,0
  75. 750 poke 781,0:poke782,48
  76. 760 sys 65493
  77. 770 gosub 1330
  78. 780 goto 140
  79. 790 :
  80. 800 rem
  81. 810 print" -=*>";:sys10240
  82. 820 open4,4,1:a=1
  83. 830 print"[144][147] [158][196]rucker einschalten"
  84. 840 print" und [207][206][204][201][206][197] setzen"
  85. 850 print"[159] [215]ieviele [193]bzuege ? (+/-)"
  86. 860 printa
  87. 870 geta$:if a$=""then870
  88. 880 if a$="+" then a=a+1
  89. 890 if a$="-" then a=a-1
  90. 900 if a$=chr$(13) then 940
  91. 910 if a<1 then a=1
  92. 920 print"[145]"a"[157]     ":goto 870
  93. 930 :
  94. 940 if a<=1 then sys 52416:goto 970
  95. 950 sys 52416:print#4,chr$(12)
  96. 960 a=a-1:print"[145][145]nr"a:if a>0 then 950
  97. 970 close4:goto140
  98. 980 :
  99. 990 rem
  100. 1000 print"[147]"
  101. 1010 print" [198]1: (hex)nr [197]ingabe [198]3: [201]dentifizieren"
  102. 1020 print" [198]5: [211]pezialzeichen  [198]7: [200]ilfsmenue"
  103. 1030 print" shift+ctrl+commo => [205]enue "
  104. 1040 print" ctrl = font  commo = form";
  105. 1050 sys 50500
  106. 1060 goto 140
  107. 1070 :
  108. 1080 rem
  109. 1090 print"";f$
  110. 1100 forx=0to 900:nextx
  111. 1110 print"[145]                      "
  112. 1120 return
  113. 1130 :
  114. 1140 rem
  115. 1150 b$="":print""
  116. 1160 print" [212]extname "
  117. 1170 print spc(10)"----------------[145][145]"
  118. 1180 print spc(9)":";
  119. 1190 sys10240:forx=0to15
  120. 1200 forx=0to15
  121. 1210 get c$:if c$="" then 1210
  122. 1220 if c$=chr$(13) then 1300
  123. 1230 if c$=chr$(34) then 1210
  124. 1240 if c$=chr$(44) then 1210
  125. 1250 if c$=chr$(64) then 1150
  126. 1260 if asc(c$)<32 then 1210
  127. 1270 if asc(c$)>95 then 1210
  128. 1280 printc$;:b$=b$+c$
  129. 1290 next x
  130. 1300 if b$="" then 1320
  131. 1310 sys 57812 b$,8 :rem trans fname
  132. 1320 return
  133. 1330 :
  134. 1340 open 15,8,15:input#15,x,c$
  135. 1350 close15:f$=str$(x)+" "+c$
  136. 1360 goto 1080
  137. 1370 :
  138.